home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / usmap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-07  |  512 b   |  11 lines
  1. 10  REM --- usa map ---
  2. 20  REM SOURCE PC MAGAZINE VOL 1.6 SEPT 1983
  3. 30  INPUT "INPUT SCALE 4 to 20 :";SCALE
  4. 40  REM --- define string to draw map ---
  5. 50  A$="D4G1D7F2D3F5R2F2R4E1R2F3R2F3D1F1R2U1E4R2F1R4H1U1R5F1E1F1D2F3R                2U4H2U4E3U1E1U1H2U1F1E1U3E3H1U2E3L2H2L2D3G2L2G1D1G1L2D1G2L2E1U1H1D1L2U3L2G  1D3G1L2U4E1R2U1L5E1L2G1L2E2L5H1L19D1L2H1"
  6. 60  SCREEN 1
  7. 70  KEY OFF
  8. 80  CLS
  9. 90  DRAW "BM20,40"
  10. 100  DRAW "S=SCALE;XA$;"
  11.